home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Advisor / CD-ROM Advisor.iso / blender / blen40m / shared.dir / 00845.txt < prev    next >
Encoding:
Text File  |  1994-08-22  |  361 b   |  18 lines
  1. on exitFrame
  2. --PAGE NUMBER+HYPERLINKS
  3.   global n
  4.   global s
  5.   repeat with n = 23 down to 21
  6.     set s to the castnum of Sprite n 
  7.     if rollover(n) then
  8.       puppetSprite n, TRUE
  9.       if (s < 824) then
  10.         set the castnum of Sprite n to (s + 7)
  11.       end if
  12.     else
  13.       puppetSprite n, FALSE
  14.     end if
  15.   end repeat
  16.   go to the frame
  17.   updateStage
  18. end